home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / voyage.bas < prev    next >
BASIC Source File  |  1991-10-18  |  17KB  |  386 lines
  1. 1 CLEAR :KEY (1) ON :ON KEY (1) GOSUB 65010:PLAY OFF
  2. 10 '
  3. 20 'Ｔｈｅ　Ｅｎｄ　Ｏｆ　Ｔｈｅ　Ｌｏｎｇｅｓｔ　Ｖｏｙａｇｅ
  4. 30 '                                               / by Kazuya Shimada
  5. 40 DEFINT A-Z:PLAY OFF:BGM 1
  6. 50 LOAD@"HGFMDATA.FMB":LOAD@"PDRUMS.PMB"
  7. 60 GOSUB 2780
  8. 70 FOR I=0 TO 13:PART I,I:NEXT
  9. 80 T$="T110V12U0Q8%C"
  10. 90 A1$="@30%RV10L8O4CDE-GF16E-D.C <B->CDFE-16DC.<B-"
  11. 100 B1$="U80@30%LV10L8O4CDE-GF16E-D.C <B->CDFE-16DC.<B-"
  12. 110 C1$="U40@30V5L8O4C&CDE-GF16E-D.C <B->CDFE-16DC."
  13. 120 D1$="U-20@72V8L1O4C <B-"
  14. 130 E1$="U-20@72V8L1O4E- D"
  15. 140 F1$="U-20@72V8L1O4G F"
  16. 150 G1$="@3V15L4O4(ARRR)2"
  17. 160 H1$="@2%RV15L4O4(RRRE)2"
  18. 170 H1A$="U360@2%LV15L4O4(RRRE)2"
  19. 180 I1$="@4V15L8O5(GRRGRRGR)2"
  20. 190 J1$="U@12%RV8L1O3C <B-"
  21. 200 K1$="U80@12%LV8L1O3C <B-"
  22. 210 L1$="@14%RV13L1R R"
  23. 220 M1$="U360@14%LV13L1R R"
  24. 230 A2$="O3A-B->CE-D16C<B.>C D<GB>DG16FE-.D"
  25. 240 C2$="O3A-&A-B->CE-D16C<B.>C D<GB>DG16FE-."
  26. 250 D2$="O3A- G"
  27. 260 E2$="O4C <B"
  28. 270 F2$="O4E- D"
  29. 280 J2$="O2A- G"
  30. 290 A3$="@4%RV10L8O4CDE-GF16E-D.C <B->CDFE-16DC.<B-"
  31. 300 B3$="@4%LV10L8O4CDE-GF16E-D.C <B->CDFE-16DC.<B-"
  32. 310 C3$="@4V5L8O4C&CDE-GF16E-D.C <B->CDFE-16DC."
  33. 320 A4$="O3A-B->CE-D16C<B.>C L16D8DD8D<GG>Q7GGGG8Q8GB-8L8"
  34. 330 C4$="O3A-&A-B->CE-D16C<B.>C L16D8DD8D<GG>Q7GGGG8Q8GL8"
  35. 340 L4$="U0O4R1 L16%RDDD&D8.DDD&D8.U0%CD%CU0F8."
  36. 350 M4$="U80O4R1 L16%LDDD&D8.DDD&D8.U80%LD%RU80F8."
  37. 360 T1$="T136"
  38. 370 A5$="U0@20%RV7L8O4E-4.E-16E-16E-.E-.E- G4F4C4D4"
  39. 380 B5$="Q6U80@14%RV6O5L16CE-GCE-GCE-GCE-GCE-GC E-GCE-GCE-GCE-GCE-GCE-"
  40. 390 C5$="U40@21%CV7L8O5E-E-4E-4E-E-4 E-E-4E-4E-E-E-"
  41. 400 D5$="U40@21%CV7L8O5CC4C4CC4 CC4C4CCC"
  42. 410 E5$="U80@20%LV7L8O4E-4.E-16E-16E-.E-.E- G4F4C4D4"
  43. 420 F5$="Q6U0@14%LV6O5L16CE-GCE-GCE-GCE-GCE-GC E-GCE-GCE-GCE-GCE-GCE-"
  44. 430 G5$="L4(ARAR)2"
  45. 440 H5$="L4(RERE)2"
  46. 450 I5$="L16((B8BB)4)2"
  47. 460 J5$="U20@13%LV3L16O3((C8>CC<)4)2"
  48. 470 K5$="U-30@13%RV3L16O3((C8>CC<)4)2"
  49. 480 A6$="O3B-4.F16B-16>B-4A-G& GFF2G4"
  50. 490 B6$="O4B->DF<B->DF<B->DF<B->DF<B->DF<B- >DF<B->DF<B->DF<B->DF<B->DF<B->D"
  51. 500 C6$="O4B-4B-B-4B-4B- &B-B-4B-B-B-B-4"
  52. 510 D6$="O5D4DD4D4D &DD4DDDD4"
  53. 520 J6$="O2((B-8>B-B-<)4)2"
  54. 530 A7$="O4A-4.A-16A-16A-2 A-4.A-16A-16B-4A-4"
  55. 540 B7$="O4A->CF<A->CF<A->CF<A->CF<A->CF<A- >CF<A->CF<A->CF<A->CF<A->CF<A->C"
  56. 550 C7$="O5F4FF4F4F &FF4FFFFF"
  57. 560 D7$="O4A-4A-A-4A-4A- &A-A-4A-A-A-A-A-"
  58. 570 J7$="O2((A-8>A-A-<)4)2"
  59. 580 A8$="O4A-4.G16F16G2 &G1"
  60. 590 B8$="O4GB>D<GB>D<GB>D<GB>D<GB>D<G B>D<GB>D<GB>D<GB>D<GB>D<GB"
  61. 600 C8$="O5G4GG4GG4 GG4G4GGG"
  62. 610 D8$="O4B4BB4BB4 BB4B4BBB"
  63. 620 H8$="RERE RERE8E16E16"
  64. 630 J8$="O2((G8>GG<)4)2"
  65. 640 A9$="O4F4.E-16D16E-2 &E-4E-E-E-.F.E-"
  66. 650 C9$="O4FF4FFFFF FFFF4FFF"
  67. 660 D9$="O4A-A-4A-A-A-A-A- A-A-A-A-4A-A-A-"
  68. 670 A10$="O4D1 G1"
  69. 680 A10B$="O4D2..D16D16 G1"
  70. 690 C10$="O4G4G4G4G4 G4.G4GG4"
  71. 700 D10$="O4B4B4B4B4 B4.B4BB4"
  72. 710 H10$="RERE RERL16EEEEL4"
  73. 720 H10B$="RERE RL16EEEEL4EE"
  74. 730 J10$="O2((G8>GG<)4)2"
  75. 740 L10$="U0@14V15%CL16O3R1 R2.B%C>D8."
  76. 750 M10$="U80@14V15%LL16O3R1 R2.B%R>D8."
  77. 760 A11$="U0@14%RV10O4A-2&A-FGA- &A-4>FE-D.E-.F"
  78. 770 B11$="Q8U40@32%CV7L1O3A- &A-"
  79. 780 C11$="U40@32%RV7L1O4C &C"
  80. 790 D11$="U40@32%LV7L1O3E- &E-"
  81. 800 E11$="U80@14%LV10O4A-2&A-FGA- &A-4>FE-D.E-.F"
  82. 810 F11$="Q8@7U0V8L1O4C &C"
  83. 820 G11$="(ARA8A8R)"
  84. 830 H11$="(RERE)"
  85. 840 J11$="O2((A-8>A-A-<)4)2"
  86. 850 A12$="O4G4.E-16F16G4.E-16F16 G2A-4B-4"
  87. 860 B12$="O3E- &E-"
  88. 870 C12$="O3G &G"
  89. 880 D12$="O3B- &B-"
  90. 890 F12$="O3B- &B-"
  91. 900 J12$="O2((G8>GG<)4)2"
  92. 910 A13$="O4B-.F.F4FGA- &A-2B-4F4"
  93. 920 B13$="O3F &F"
  94. 930 C13$="O3A- &A-"
  95. 940 D13$="O4C &C"
  96. 950 F13$="O3A- &A-"
  97. 960 J13$="O2((F8>FF<)4)2"
  98. 970 A14$="O4A-4.G16F16G2 &G2F4G4"
  99. 980 B14$="O3D >C2<G2"
  100. 990 C14$="O3F E-2B2"
  101. 1000 D14$="O4C <G2F2"
  102. 1010 F14$="O3F G2B2"
  103. 1020 H14$="RERE RER8L16EEEEL4E8"
  104. 1030 J14$="O2((G8>GG<)4)2"
  105. 1040 A15$="O4B-.>C.<A-&A-FGA- &A-2>C4C4"
  106. 1050 B15$="O3F &F"
  107. 1060 C15$="O3A- &A-"
  108. 1070 D15$="O4C &C"
  109. 1080 F15$="O3A- &A-"
  110. 1090 J15$="O2((F8>FF<)4)2"
  111. 1100 A16$="O4B.>C.D&D4CD &D1"
  112. 1110 B16$="O3G B&"
  113. 1120 C16$="O3B >D&"
  114. 1130 D16$="O4D <F&"
  115. 1140 F16$="O3B2.>C4 D&"
  116. 1150 G16$="ARAR AAAA"
  117. 1160 H16$="RERE REEE"
  118. 1170 H16B$="RERE RRRR"
  119. 1180 J16$="O2((G8>GG<)4)2"
  120. 1190 L16$="U0%RO4R1 R2C4%CC16%CD8."
  121. 1200 M16$="U80%LO4R1 R2C4%LC16%RD8."
  122. 1210 A17$="U0@7V11L8O4E2E.F.G D2G4FE"
  123. 1220 B17$="U40@32%CV8L1O4C <B-"
  124. 1230 C17$="U40@32%RV8L1O3E >D"
  125. 1240 D17$="U40@32%LV8L1O3G F"
  126. 1250 E17$="U80@7V11L8O4E2E.F.G D2G4FE"
  127. 1260 F17$="U10@18V7L1O4E D"
  128. 1270 G17$="(AR8A8AR)"
  129. 1280 H17$="(RERE)"
  130. 1290 J17$="O3(C8>CC<)4 <(B-8>B-B-<)4"
  131. 1300 A18$="O4F4.CC2 &C2C4D4"
  132. 1310 B18$="O3F &F"
  133. 1320 C18$="O3A &B-2A2"
  134. 1330 D18$="O4C &C"
  135. 1340 F18$="O4C <B-2A2"
  136. 1350 J18$="O2((F8>FF<)4)2"
  137. 1360 A19$="O4E4.FG2 &G1"
  138. 1370 B19$="O4C &C4C4F4C4"
  139. 1380 C19$="O4E &E4E4<A4>E4"
  140. 1390 D19$="O3G &G4G4>C4<G4"
  141. 1400 F19$="O4C2.L16CDEF L1G"
  142. 1410 J19$="O3((C8>CC<)4)2"
  143. 1420 L19$="V8U0%RL4O3R1 REFE"
  144. 1430 M19$="V8U80%LL4O3R1 REFE"
  145. 1440 A20$="O4G-4.GA2 &A1"
  146. 1450 B20$="O4D &D4D4G4D4"
  147. 1460 C20$="O4G- &G-4G-4<B4>G-4"
  148. 1470 D20$="O3A &A4A4>D4<A4"
  149. 1480 F20$="O4D2.L16DEF+G L1A"
  150. 1490 J20$="O3((D8>DD<)4)2"
  151. 1500 L20$="U0O3R1 RG-GG-V15"
  152. 1510 M20$="U80O3R1 RG-GG-V15"
  153. 1520 A21$="O5C2<B2 >C4<B4A4B4"
  154. 1530 B21$="O3G2G2 G"
  155. 1540 C21$="O4C2<B2 >C"
  156. 1550 D21$="O4D2D2 D"
  157. 1560 F21$="O4C2<B2 >C4<B4A4B4"
  158. 1570 J21$="O2((G8>GG<)4)2"
  159. 1580 A22$="O5C4R2. R1"
  160. 1590 B22$="O4C &C&"
  161. 1600 C22$="O3E &E&"
  162. 1610 D22$="O3G &G&"
  163. 1620 F22$="O4C4R2. R1"
  164. 1630 J22$="O3((C8>CC<)4)2"
  165. 1640 H24$="RERE RL16EEEEL4RE"
  166. 1650 L24$="U0L16O4(%LB->%CC8%RC8%L<B->%RC8<)3R4>%CE-4"
  167. 1660 M24$="U80%CL16O3(B->C8C8<B->C8<)3R4>E-4"
  168. 1670 L25$="U0%RL4O3R1 R2.G"
  169. 1680 M25$="U80%LL4O3R1 R2.G"
  170. 1690 A26$="U0@12%CV1L16O4R1(DB>F<B)4"
  171. 1700 E26$="U80@12%CV1L16O3R1(DB>F<B)4"
  172. 1710 B26$="O3B &B&"
  173. 1720 C26$="O4D &D&"
  174. 1730 D26$="O3F &F&"
  175. 1740 F26$="O4D &D&"
  176. 1750 J26$="O2((G8>GG<)4)2"
  177. 1760 A27$="V2O4((DB>F<B])4)2"
  178. 1770 E27$="V2O3((DB>F<B])4)2"
  179. 1780 B28$="O4C &C2&<G2"
  180. 1790 C28$="O3E &E2&B2"
  181. 1800 D28$="O3G &G2&>D2"
  182. 1810 H28$="RERE REL16EEEEEEEEL4"
  183. 1820 J28$="O3(C8>CC<)4 (C8>CC<)2<(G8>GG<)2"
  184. 1830 L29$="U0%RL16O3B->C8C8<B->C8C4<C4"
  185. 1840 M29$="U80%LL16O3B->C8C8<B->C8C4<C4"
  186. 1850 PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  187. 1860 PLAY A0$,B0$,C0$,D0$,E0$,F0$,G0$,H0$,I0$
  188. 1870 PLAY A1$,B1$,C1$,D1$,E1$,F1$,G1$,H1$,H1A$,I1$,J1$,K1$,L1$,M1$
  189. 1880 PLAY A2$,A2$,C2$,D2$,E2$,F2$,G1$,H1$,H1A$,I1$,J2$,J2$,L1$,M1$
  190. 1890 PLAY A3$,B3$,C3$,D1$,E1$,F1$,G1$,H1$,H1A$,I1$,J1$,K1$,L1$,M1$
  191. 1900 PLAY A4$,A4$,C4$,D2$,E2$,F2$,G1$,H1$,H1A$,I1$,J2$,J2$,L4$,M4$
  192. 1910 PLAY T1$,T1$,T1$,T1$,T1$,T1$,T1$,T1$,T1$,T1$,T1$,T1$,T1$,T1$
  193. 1920 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G5$,H5$,H5$,I5$,J5$,K5$
  194. 1930 PLAY A6$,B6$,C6$,D6$,A6$,B6$,G5$,H5$,H5$,I5$,J6$,J6$
  195. 1940 PLAY A7$,B7$,C7$,D7$,A7$,B7$,G5$,H5$,H5$,I5$,J7$,J7$
  196. 1950 PLAY A8$,B8$,C8$,D8$,A8$,B8$,G5$,H8$,H8$,I5$,J8$,J8$
  197. 1960 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G5$,H5$,H5$,I5$,J5$,K5$
  198. 1970 PLAY A6$,B6$,C6$,D6$,A6$,B6$,G5$,H5$,H5$,I5$,J6$,J6$
  199. 1980 PLAY A9$,B7$,C9$,D9$,A9$,B7$,G5$,H5$,H5$,I5$,J7$,J7$
  200. 1990 PLAY A10$,B8$,C10$,D10$,A10$,B8$,G5$,H10$,H10$,I5$,J10$,J10$
  201. 2000 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G5$,H5$,H5$,I5$,J5$,K5$
  202. 2010 PLAY A6$,B6$,C6$,D6$,A6$,B6$,G5$,H5$,H5$,I5$,J6$,J6$
  203. 2020 PLAY A7$,B7$,C7$,D7$,A7$,B7$,G5$,H5$,H5$,I5$,J7$,J7$
  204. 2030 PLAY A8$,B8$,C8$,D8$,A8$,B8$,G5$,H8$,H8$,I5$,J8$,J8$
  205. 2040 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G5$,H5$,H5$,I5$,J5$,K5$
  206. 2050 PLAY A6$,B6$,C6$,D6$,A6$,B6$,G5$,H5$,H5$,I5$,J6$,J6$
  207. 2060 PLAY A9$,B7$,C9$,D9$,A9$,B7$,G5$,H5$,H5$,I5$,J7$,J7$
  208. 2070 PLAY A10B$,B8$,C10$,D10$,A10$,B8$,G5$,H10B$,H10B$,I5$,J10$,J10$,L10$,M10$
  209. 2080 PLAY A11$,B11$,C11$,D11$,E11$,F11$,G11$,H11$,H11$,I5$,J11$,J11$
  210. 2090 PLAY A12$,B12$,C12$,D12$,A12$,F12$,G11$,H11$,H11$,I5$,J12$,J12$
  211. 2100 PLAY A13$,B13$,C13$,D13$,A13$,F13$,G11$,H11$,H11$,I5$,J13$,J13$
  212. 2110 PLAY A14$,B14$,C14$,D14$,A14$,F14$,G11$,H14$,H14$,I5$,J14$,J14$
  213. 2120 PLAY A11$,B11$,C11$,D11$,E11$,F11$,G11$,H11$,H11$,I5$,J11$,J11$
  214. 2130 PLAY A12$,B12$,C12$,D12$,A12$,F12$,G11$,H11$,H11$,I5$,J12$,J12$
  215. 2140 PLAY A15$,B15$,C15$,D15$,A15$,F15$,G11$,H11$,H11$,I5$,J15$,J15$
  216. 2150 PLAY A16$,B16$,C16$,D16$,A16$,F16$,G11$,H16$,H16$,I5$,J16$,J16$,L16$,M16$
  217. 2160 PLAY A17$,B17$,C17$,D17$,E17$,F17$,G17$,H17$,H17$,I5$,J17$,J17$
  218. 2170 PLAY A18$,B18$,C18$,D18$,A18$,F18$,G17$,H17$,H17$,I5$,J18$,J18$
  219. 2180 PLAY A19$,B19$,C19$,D19$,A19$,F19$,G17$,H17$,H17$,I5$,J19$,J19$,L19$,M19$
  220. 2190 PLAY A20$,B20$,C20$,D20$,A20$,F20$,G17$,H17$,H17$,I5$,J20$,J20$,L20$,M20$
  221. 2200 PLAY A21$,B21$,C21$,D21$,A21$,F21$,G5$,H5$,H5$,I5$,J21$,J21$
  222. 2210 PLAY A17$,B17$,C17$,D17$,E17$,F17$,G17$,H17$,H17$,I5$,J17$,J17$
  223. 2220 PLAY A18$,B18$,C18$,D18$,A18$,F18$,G17$,H17$,H17$,I5$,J18$,J18$
  224. 2230 PLAY A19$,B19$,C19$,D19$,A19$,F19$,G17$,H17$,H17$,I5$,J19$,J19$,L19$,M19$
  225. 2240 PLAY A20$,B20$,C20$,D20$,A20$,F20$,G17$,H17$,H17$,I5$,J20$,J20$,L20$,M20$
  226. 2250 PLAY A21$,B21$,C21$,D21$,A21$,F21$,G5$,H5$,H5$,I5$,J21$,J21$
  227. 2260 PLAY A22$,B22$,C22$,D22$,A22$,F22$,G5$,H5$,H5$,I5$,J22$,J22$
  228. 2270 PLAY A23$,B22$,C22$,D22$,A23$,F23$,G5$,H5$,H5$,I5$,J22$,J22$
  229. 2280 PLAY A24$,B24$,C24$,D24$,A24$,F24$,G5$,H5$,H5$,I5$,J22$,J22$,L24$,M24$
  230. 2290 PLAY A24$,B24$,C24$,D24$,A24$,F24$,G5$,H5$,H5$,I5$,J22$,J22$
  231. 2300 PLAY A24$,B24$,C24$,D24$,A24$,F24$,G5$,H5$,H5$,I5$,J22$,J22$,L24$,M24$
  232. 2310 PLAY A24$,B24$,C24$,D24$,A24$,F24$,G5$,H24$,H24$,I5$,J22$,J22$,L25$,M25$
  233. 2320 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G5$,H5$,H5$,I5$,J5$,K5$
  234. 2330 PLAY A6$,B6$,C6$,D6$,A6$,B6$,G5$,H5$,H5$,I5$,J6$,J6$
  235. 2340 PLAY A7$,B7$,C7$,D7$,A7$,B7$,G5$,H5$,H5$,I5$,J7$,J7$
  236. 2350 PLAY A8$,B8$,C8$,D8$,A8$,B8$,G5$,H8$,H8$,I5$,J8$,J8$
  237. 2360 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G5$,H5$,H5$,I5$,J5$,K5$
  238. 2370 PLAY A6$,B6$,C6$,D6$,A6$,B6$,G5$,H5$,H5$,I5$,J6$,J6$
  239. 2380 PLAY A9$,B7$,C9$,D9$,A9$,B7$,G5$,H5$,H5$,I5$,J7$,J7$
  240. 2390 PLAY A10$,B8$,C10$,D10$,A10$,B8$,G5$,H10B$,H10B$,I5$,J10$,J10$,L10$,M10$
  241. 2400 PLAY A11$,B11$,C11$,D11$,E11$,F11$,G11$,H11$,H11$,I5$,J11$,J11$
  242. 2410 PLAY A12$,B12$,C12$,D12$,A12$,F12$,G11$,H11$,H11$,I5$,J12$,J12$
  243. 2420 PLAY A13$,B13$,C13$,D13$,A13$,F13$,G11$,H11$,H11$,I5$,J13$,J13$
  244. 2430 PLAY A14$,B14$,C14$,D14$,A14$,F14$,G11$,H14$,H14$,I5$,J14$,J14$
  245. 2440 PLAY A11$,B11$,C11$,D11$,E11$,F11$,G11$,H11$,H11$,I5$,J11$,J11$
  246. 2450 PLAY A12$,B12$,C12$,D12$,A12$,F12$,G11$,H11$,H11$,I5$,J12$,J12$
  247. 2460 PLAY A15$,B15$,C15$,D15$,A15$,F15$,G11$,H11$,H11$,I5$,J15$,J15$
  248. 2470 PLAY A16$,B16$,C16$,D16$,A16$,F16$,G16$,H16B$,H16B$,I5$,J16$,J16$
  249. 2480 PLAY A26$,B26$,C26$,D26$,E26$,F26$,G5$,H5$,H5$,I5$,J26$,J26$
  250. 2490 PLAY A27$,B26$,C26$,D26$,E27$,F27$,G5$,H5$,H5$,I5$,J26$,J26$
  251. 2500 PLAY A17$,B17$,C17$,D17$,E17$,F17$,G17$,H17$,H17$,I5$,J17$,J17$
  252. 2510 PLAY A18$,B18$,C18$,D18$,A18$,F18$,G17$,H17$,H17$,I5$,J18$,J18$
  253. 2520 PLAY A19$,B19$,C19$,D19$,A19$,F19$,G17$,H17$,H17$,I5$,J19$,J19$,L19$,M19$
  254. 2530 PLAY A20$,B20$,C20$,D20$,A20$,F20$,G17$,H17$,H17$,I5$,J20$,J20$,L20$,M20$
  255. 2540 PLAY A21$,B21$,C21$,D21$,A21$,F21$,G5$,H5$,H5$,I5$,J21$,J21$
  256. 2550 PLAY A17$,B17$,C17$,D17$,E17$,F17$,G17$,H17$,H17$,I5$,J17$,J17$
  257. 2560 PLAY A18$,B18$,C18$,D18$,A18$,F18$,G17$,H17$,H17$,I5$,J18$,J18$
  258. 2570 PLAY A19$,B19$,C19$,D19$,A19$,F19$,G17$,H17$,H17$,I5$,J19$,J19$,L19$,M19$
  259. 2580 PLAY A20$,B20$,C20$,D20$,A20$,F20$,G17$,H17$,H17$,I5$,J20$,J20$,L20$,M20$
  260. 2590 PLAY A21$,B21$,C21$,D21$,A21$,F21$,G5$,H5$,H5$,I5$,J21$,J21$
  261. 2600 PLAY A22$,B22$,C22$,D22$,A22$,F22$,G5$,H5$,H5$,I5$,J22$,J22$
  262. 2610 PLAY A28$,B28$,C28$,D28$,A28$,F28$,G5$,H28$,H28$,I5$,J28$,J28$
  263. 2620 PLAY A17$,B17$,C17$,D17$,E17$,F17$,G17$,H17$,H17$,I5$,J17$,J17$
  264. 2630 PLAY A18$,B18$,C18$,D18$,A18$,F18$,G17$,H17$,H17$,I5$,J18$,J18$
  265. 2640 PLAY A19$,B19$,C19$,D19$,A19$,F19$,G17$,H17$,H17$,I5$,J19$,J19$,L19$,M19$
  266. 2650 PLAY A20$,B20$,C20$,D20$,A20$,F20$,G17$,H17$,H17$,I5$,J20$,J20$,L20$,M20$
  267. 2660 PLAY A21$,B21$,C21$,D21$,A21$,F21$,G5$,H5$,H5$,I5$,J21$,J21$
  268. 2670 PLAY A17$,B17$,C17$,D17$,E17$,F17$,G17$,H17$,H17$,I5$,J17$,J17$
  269. 2680 PLAY A18$,B18$,C18$,D18$,A18$,F18$,G17$,H17$,H17$,I5$,J18$,J18$
  270. 2690 PLAY A19$,B19$,C19$,D19$,A19$,F19$,G17$,H17$,H17$,I5$,J19$,J19$,L19$,M19$
  271. 2700 PLAY A20$,B20$,C20$,D20$,A20$,F20$,G17$,H17$,H17$,I5$,J20$,J20$,L20$,M20$
  272. 2710 PLAY A21$,B21$,C21$,D21$,A21$,F21$,G5$,H5$,H5$,I5$,J21$,J21$
  273. 2720 PLAY A21$,B21$,C21$,D21$,A21$,F21$,G5$,H5$,H5$,I5$,J21$,J21$
  274. 2730 PLAY A21$,B21$,C21$,D21$,A21$,F21$,G5$,H5$,H5$,I5$,J21$,J21$
  275. 2740 PLAY A22$,B22$,C22$,D22$,A22$,F22$,G5$,H5$,H5$,I5$,J22$,J22$
  276. 2750 PLAY A23$,B22$,C22$,D22$,A23$,F23$,G5$,H5$,H5$,I5$,J22$,J22$
  277. 2760 PLAY A29$,B29$,C29$,D29$,A29$,F29$,G0$,H0$,H0$,I0$,J29$,J29$,L29$,M29$
  278. 2770 GOTO 65000
  279. 2780 '
  280. 2790 GOSUB *SCREEN
  281. 3020 PRINT
  282. 3040 I$=INKEY$:IF I$="" THEN 3040
  283. 3050 GOSUB *F_OUT:SCREEN@ 1:CLS
  284. 3060 FOR I=0 TO 99
  285. 3070 LINE(0,I)-(319,I),PSET,[155,155,I+150]
  286. 3080 NEXT
  287. 3090 FOR I=100 TO 239
  288. 3100 LINE(0,I)-(319,I),PSET,[0,0,339-I]
  289. 3110 NEXT
  290. 3120 LINE(170,99)-(319,99),PSET,[160,0,0]
  291. 3130 LINE(260,98)-(319,98),PSET,[160,0,0]
  292. 3140 PASTEL 25
  293. 3150 FOR I=250 TO 10 STEP -30
  294. 3160 CIRCLE(74,99),I,7,,,,F,PASTEL
  295. 3170 NEXT
  296. 3180 LINE(71,95)-(77,96),PSET,7,BF
  297. 3190 LINE(70,98)-(78,99),PSET,7,BF
  298. 3200 LINE(74,94)-(74,101),PSET,[100,180,60]
  299. 3210 LINE(71,101)-(77,101),PSET,[100,180,60]
  300. 3220 LINE(71,102)-(77,102),PSET,[100,180,60]
  301. 3230 LINE(72,103)-(76,103),PSET,[100,180,60]
  302. 3240 FOR I=105 TO 239
  303. 3250 X=72+RND*(I-90)*.4!
  304. 3260 LINE(X,I)-(X,I),PSET,7
  305. 3270 NEXT
  306. 3280 FOR I=0 TO 2
  307. 3290 SYMBOL(87,223+I),"THE END OF THE LONGEST VOYAGE",1,1,2,,,1
  308. 3300 SYMBOL(88,223+I),"THE END OF THE LONGEST VOYAGE",1,1,2,,,1
  309. 3310 NEXT
  310. 3320 SYMBOL(88,224),"THE END OF THE LONGEST VOYAGE",1,1,7
  311. 3330 RETURN
  312. 17000 *SCREEN
  313. 17010 SCREEN@ 0 : PALETTE@
  314. 17020 FOR I=0 TO 15 : PALETTE I,[0,0,0] : NEXT
  315. 17030 COLOR ,%5 : CLS
  316. 17040 X=630 : Y=30 : MX=2 : MY=3: R=3 : C1=1 : C2=5 : C3=15 : F=16
  317. 17050 ST$="ＰＩＣＫ　ＵＰ　ＴＯＷＮＳ" : GOSUB *STR_PUT
  318. 17060 X=575 : Y=30 : MX=2 : MY=3 : R=3 : C1=1 : C2=5 : C3=15 : F=16
  319. 17070 ST$="ＭＵＳＩＣ　ＰＲＯＧＲＡＭ" : GOSUB *STR_PUT
  320. 17080 GOSUB *F_IN : FOR I=0 TO 2000 : NEXT
  321. 17090 X1=10 : X2=590 : Y1=10 : Y2=460 : C1=1 : C2=6 : C3=15
  322. 17100 GOSUB *WAKU
  323. 17110 X1=20 : X2=580 : Y1=20 : Y2=90 : C1=15 : C2=7 : C3=5
  324. 17120 GOSUB *WAKU
  325. 17130 X1=20 : X2=580 : Y1=420 : Y2=450 : C1=15 : C2=7 : C3=5
  326. 17140 GOSUB *WAKU
  327. 17150 X1=20 : X2=580 : Y1=100 : Y2=410 : C1=15 : C2=7 : C3=5
  328. 17160 GOSUB *WAKU
  329. 17170 SYMBOL (30,430),"ＰＦ１キーを押すと、演奏を中断して音楽ＭＥＮＵに戻ります。",1,1,0,,,1
  330. 17180 SYMBOL (30,30),"　ＴＩＴＬＥ　",1,1,0,0,PSET,17
  331. 17190 SYMBOL (80,53),"ＴＨＥ　ＥＮＤ　ＯＦ　ＴＨＥ　ＬＯＮＧＥＳＴ　ＶＯＹＡＧＥ",1,2,0,0,PSET,1
  332. 17200 SYMBOL (30,110),"　ＤＡＴＡ　",1,1,0,0,PSET,17
  333. 17210 SYMBOL (80,140),"Programed by　ＫＡＺＵＹＡ　ＳＨＩＭＡＤＡ",1,1,0,0,PSET,1,1
  334. 17220 SYMBOL (80,160)," Composed by　ＫＡＺＵＹＡ　ＳＨＩＭＡＤＡ",1,1,0,0,PSET,1,1
  335. 17230 SYMBOL (30,200),"　ＭＥＳＳＡＧＥ　",1,1,0,0,PSET,17
  336. 17240 'ST$()="･･････････････････････････････････････････････････････"
  337. 17250 ST$(0)="　この曲は、半年くらい前から作り始めていたのですが、なかなか進ま"
  338. 17260 ST$(1)="なかったもので、今頃になってようやく出来たのでした。明るいのにす"
  339. 17270 ST$(2)="るか暗いのにするか迷って付け足していくうちに、今の形となりました。"
  340. 17280 ST$(3)="　また、初めてHGFMDATAを使わせてもらいました。音色がとてもリアル"
  341. 17290 ST$(4)="なんですが、自分の欲しい音色がない時がやはり多々あり、音色を作り"
  342. 17300 ST$(5)="たいと思う時がしょっちゅうありましたが、なんとかできたのでした。"
  343. 17310 ST$(6)=""
  344. 17320 ST$(7)="リターンキー、または実行キーを押すと演奏が始まります。"
  345. 17330 GOSUB *MESSAGE
  346. 17340 RETURN
  347. 17350 *STR_PUT
  348. 17360 SYMBOL (X,Y),ST$,MX,MY,%C1,R,PSET,F
  349. 17370 SYMBOL (X+1,Y),ST$,MX,MY,%C1,R,PSET,F
  350. 17380 SYMBOL (X+2,Y),ST$,MX,MY,%C1,R,PSET,F
  351. 17390 SYMBOL (X+2,Y-1),ST$,MX,MY,%C1,R,PSET,F
  352. 17400 SYMBOL (X+2,Y-2),ST$,MX,MY,%C1,R,PSET,F
  353. 17410 SYMBOL (X,Y-2),ST$,MX,MY,%C3,R,PSET,F
  354. 17420 SYMBOL (X+1,Y-2),ST$,MX,MY,%C3,R,PSET,F
  355. 17430 SYMBOL (X,Y-1),ST$,MX,MY,%C3,R,PSET,F
  356. 17440 SYMBOL (X+1,Y-1),ST$,MX,MY,%C2,R,PSET,F
  357. 17450 RETURN
  358. 17460 *WAKU
  359. 17470 LINE (X1+2,Y1+2)-(X2-2,Y2-2),PSET,%C2,BF
  360. 17480 CONNECT (X1,Y2)-(X1,Y1)-(X2,Y1),%C3
  361. 17490 CONNECT (X1+1,Y2-1)-(X1+1,Y1+1)-(X2-1,Y1+1),%C3
  362. 17500 CONNECT (X1+1,Y2)-(X2,Y2)-(X2,Y1+1),%C1
  363. 17510 CONNECT (X1+2,Y2-1)-(X2-1,Y2-1)-(X2-1,Y1+2),%C1
  364. 17520 RETURN
  365. 17530 *MESSAGE
  366. 17540 FOR I=0 TO 7
  367. 17550   SYMBOL (50,230+20*I),ST$(I),1,1,0,0,PSET,1
  368. 17560 NEXT I
  369. 17570 RETURN
  370. 17580 *F_OUT
  371. 17590 FOR I=16 TO 1 STEP -1 : GOSUB *PALETTE : NEXT I :COLOR ,%0: CLS: RETURN
  372. 17600 *F_IN
  373. 17610 FOR I=1 TO 16 : GOSUB *PALETTE : NEXT I : RETURN
  374. 17620 *PALETTE
  375. 17630 PALETTE 1,[0*I,0*I,1*I]
  376. 17640 PALETTE 2,[1*I,0*I,2*I]
  377. 17650 PALETTE 3,[2*I,1*I,3*I]
  378. 17660 PALETTE 4,[4*I,2*I,6*I]
  379. 17670 PALETTE 5,[8*I,6*I,9*I]
  380. 17680 PALETTE 6,[12*I,10*I,13*I]
  381. 17690 PALETTE 7,[14*I,13*I,15*I]
  382. 17700 PALETTE 15,[15*I,15*I,15*I]
  383. 17710 RETURN
  384. 65000 BGM 0:PLAY "R64":BGM 1
  385. 65010 KEY (1) OFF:PLAY OFF:FOR I=0 TO 13:PART I,I:NEXT:RUN"MENU.BAS"
  386.